unit Reparaciones;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, ExtCtrls, XPMan, ToolWin, ComCtrls, StdCtrls, Grids,
  DBGrids, Buttons;

type
  TfrmReparaciones = class(TfrmBase)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    btnAceptar: TBitBtn;
    edtCodReparacion: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edtObservaciones: TMemo;
    edtCodReclamo: TEdit;
    edtTecnico: TEdit;
    edtCliente: TEdit;
    edtNroSerie: TEdit;
    edtLugar: TEdit;
    Label8: TLabel;
    DateTimePicker1: TDateTimePicker;
    edtFiltro: TEdit;
    Label9: TLabel;
    btnNuevo: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure edtFiltroKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnNuevoClick(Sender: TObject);
    procedure btnAceptarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmReparaciones: TfrmReparaciones;

implementation

uses Datos, AltaReparacion;

{$R *.dfm}

procedure TfrmReparaciones.FormShow(Sender: TObject);
begin
  inherited;
  frmDatos.qryReparaciones.Connection:=frmDatos.ZConnection1;
  frmDatos.qryReparaciones.SQL.Clear;
  frmDatos.qryReparaciones.SQL.Text:='select * from reparacion r,tecnico t,maquina m,lugar_reparacion l,clientes c'
                                + ' where r.cod_tecnico = t.cod_tecnico and'
	                              + ' r.nro_serie_pc = m.nro_serie_pc and'
                                + ' r.cod_lugar_reparacion = l.cod_lugar and'
                                + ' m.cod_cliente=c.cod_cliente';
  frmDatos.qryReparaciones.Open;

  DBGrid1.DataSource:=frmDatos.dsReparaciones;
end;

procedure TfrmReparaciones.edtFiltroKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  frmDatos.qryReparaciones.Filter:='';
  frmDatos.qryReparaciones.Filter:='nro_serie_pc LIKE ' + QuotedStr(edtFiltro.Text+'*');
  frmDatos.qryReparaciones.Filtered:=true;
end;

procedure TfrmReparaciones.btnNuevoClick(Sender: TObject);
begin
  inherited;
  frmAltaReparacion.ShowModal;
end;

procedure TfrmReparaciones.btnAceptarClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.
